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.REM 



IDENTIFICATION 



PRODUCT CODE % 
PRODUCT NAMES 
PRODUCT DATE % 

••aintainer: 



AC-E673G-MC 

CVFFAGO RF11 MODULE 
SEPTEMBER 1°7R 
DEC/X11 SUPPORT GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUPJECT TO CHANGE 
WITHOUT NOTICE AMD SHOULD NOT BE CONSTRUED AS A COMMITMENT 
DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES MO RESPONSIBILITY FOP A MY ERRORS THAT 
Y A°P5AP in THIS VftNUAL, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER HVDFP A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AMD CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM^ EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING PY DIGITAL* 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOP 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL, 

COPVRIGHT (C) 1973,1978 DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 

PFA IS AM IOMODX THAT EXERCISES RS DISK DRIVES ON AN 
mi CONTROLLER* IT EXERCISES THE DRIVES BY DOING WRITES # 
*RITE-CHFCKS# READS* AND IN-CORE DATA COMPARISONS* 
ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE TTY* 

PEQU I REGENTS 

HARDWARE! 1 TO 8 RS DISK DRIVES WITH AN RFll CONTROLLER 

STORAGES S RFA REQUIRES 2 

1. DECIMAL WORDS? 978 
OCTAL WORDS? 1722 
~ ^ISS 3644 



OCTAL BYTES 1 



3. PASS DEFINITION 



ONE PASS OF THE RFA MODULE CONSISTS OF 740 CYCLES OF THE BASIC TEST 
SEQUENCE (WRITE. WRITE -CHECK, READ/ DATA-CHECK) «, THE TEST SEQUENCE 
WRITES 1^24 WORDS. WRITE-CHECKS SAHE # READS THE FIRST 256 HORDS r 
AND DATA-CHECKS SAME. 

EXFCUTIQN T I HE 



ONE PASS OF RFA RUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY 1 MINUTE* 
5* CONFIGURATION REQUIREMENTS 



DEFAULT PARAMETERS S 

D E V A D R : 177460/ VECTOR I 204/ RRll 5/ DEVCNTl 1 
REQUIRED PARAMETERS! 

NONE 

DEVICE/OPTION SETUP 



V AKS CERTAIN THAT ALL DRIVES ARE POWERED UP/ WRITE ENABLED/ AND READY 
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NODULE OPERATION 



TEST SEQUENCE: 



4. 

B. 



g. 

H. 
I. 



SETUP DEVICE REGISTER ADDRESSES AMD NODULE VARIABLES 
RESET ALL DRIVES ON-LINE AND DROP ALL THAT ARE NOT 
GET A STARTING DISK ADDRESS AND FRESH BLOCK OF DATA 
GET A DRIVE ADDRESS 

DO A WRTTE ~ IF ERRORS* REPORT AND RETRY UP TO RETRY LIMIT 

DO A WRITE-CHECK — TF ERRORS, REPORT AND RETRY UP TO RETRY LIMIT 

On * READ « IF ERRORS, REPORT AND RETRY UP TO RETRY LIMIT 

DO A DATA-CHECK ~ IF ERRORS, REPORT AND CONTINUE 

IF END OF PASS, REPORT AND GO TO C 

IF END 0^ DRIVES, GO TO C ELSE GO TO D 



OPERATION OPTIONS 



PIT 



BIT 



PIT 



SRI: 

SFT(l): 

jc the RETRY LIMIT 
IS ABORTED AND THE 



BIT 



BIT 



R I T 



IS EXCEEDED ON 
TEST CONTINUES 



A HARD ERROR, THE FUNCTION 



CLEAR(O): 

TF THE RETRY LIMIT IS 
DRIVE WILL BE DROPPED 



DRIVE 



ETRY LI WIT IS 
WILL BE DROPPED 



EXCEEDED ON A HARD ERROR, THE 



EXCEEDED ON A SOFT ERROR, THE 



1 CLEAR(O): 
--- -— retry 



IF THE 
FUNCTION 



LIMIT IS EXCEEDED ON A SOFT ERROR, TflE 



TS ABORTED AND THE TEST CONTINUES 

AND HILL KEEP 



2 SET(l) 

WILL NOT TYPE OUT DATA LATE ERRORS 
ERROR COUNT IN LOCATION DLTCNT 

2 CLFAPC9): 

TYPE OUT DATA LATE ERRORS AND KEEP COUNT OF 
DATA LATE ERRORS IN DLTCNT 
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9. NON-STANDARD PRINTOUTS 



A « MOST PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN 
THE DEC/ XI 1 DOCUMENT 

B. ERROR MESSAGES DUMP TRE CONTENTS OF THE 8 RF11 REGISTERS 
IN THE FOLLOWING ORDER 2 

R*"CS RFWC PEN A RFDA RFAE RFDB RFHP RFDS 




SEQ 0004 
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SEQ 0005 



IQHODX 

MODULE 
.TITLE 

DOXCOM 




¥ \\\W 

M, ii: m 




,06* 
.-,06* 00000 

)0H4* oooooo 

W$£ Bill 



VERSION 6 



040 



<RF AG > < -l77460, 2G4 1 .5.0,C,740., 4, 
150000, RFSG ,177466,204,*,0*^74 
RF AG DEC/X11 SYSTEM EXERCISER MOD 

' 23-MAY-78 

.LIST 81 N 
. *************** 

BEGIN: 

. ASCII /PFAG / 

.BYTE OPEN 
177460+0 

. BYTE 
0+1 

mi 

PEN 

PEN 



BUFIN i ,256.,1024. 
0.,4,BUFIN, 256., 1024. 

ULE 



************* 



**************** a»*ftftft*a***»*#ft 



XFLAG: 
ADDR ! 
VECTOR 
BR 

BR__ 
DVID1 



Lm . i i i 

ctor; 2|4 
2: ".BY 



PPTV5+0 

PPTYO+O 



MODULE NAME. 

jUSED TO KEEP TRACK OF WBUFP USAGE 
;1ST DEVICE ADDR. 

III? Mel 7 * ™- 
;2nd br level. 
;device indicator i. 

mm mm® \ 



************************ 



S2: 
RO: 
Ri: 



STAT : 

init: 

SPOINT: 

pascnt: 
icont: 

icount: 
sofcnt: 
hrdcnt: 

SOFPAS: 

hrdpas: 
syscnt: 
rannum: 
config : 
RESl: 

RES 
SVRi 
SVR_ . 

SVR2: 
SVR3: 

SVR4: 

SVP5: 

SVR6: 
CSRA: 
SBADP: 
acsr: 

WASADP 

astat: 

errtyp 
asb: 

A WAS: 
RSIRT: 

wdto: 
wdfr: 
INTR: 
idnum: 



150000 
START 

?ODSP 
40. 



8 









OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

4 



mm mum i 

r** ********************** 



******************** 

STATUS WORD. 
MODULE START ADDR* 
MODULE STACK POINTER. 
PASS COUNTER. 

* OF ITERATIONS PER PASS=740. 

LOC TO COUNT ITERATIONS 

-■as n 5»v E ift»£ g ? |t gRgggs 



.OC TO SAVE TOTAL 



LOC TO SAVE SOFT ERRORS PER PAS 
LOC TO SAVE_HARD _ ERRORS _ PER PkS 



SSER^ED^|OR_yONITOR USE 



* OF SYS ERRORS ACCUMULATED 
RESERVED FOR MONITOR USE 

lSc 

loc to save 

LOC TO SAVE R5. 
LOC TO SAVE R3. 

tK 78 m It 

LOC TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSR. 

ADDR OF BAD DATA 
„ STATUS REG CONTE 
;TYPE OF ERROR 
-EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATION 
« OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBER=4 



NTS? 



RFAG DEC/X11 SYSTEM EXERCISER MODULE 
XRFAGO.Pll - 12-OCT-78 12:07 



mm- llm 

8881 44 ' 000088 

O00146* 000000 



000252' 
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RBUFVA 
RBUFPA 
RBUFEA 
R8UFSZ 
WBUFPA 
WBUFEA 

WBUFRQ . 

WBUFSZ: OPEN 
CDERCT : OPEN 
CDWDCT: OPEN 
FREE : 



BUFIN 
OPEN 
OPEN 
256. 
OPEN 
OPEN 
1024. 



OPEN 
. REPT 
•NLIST 

. MORD 
.LIST 
. ENDR 



SEQ 0906 



jread buffer virtual address 
>read buffer physical address 
j read buffer ea bits 
;size of the read buffer 
; write buffer physical address 
> write buffer ea bits 
?write buffer size requested 
; write buffer size available 
;cd at a/datcit error count 
;cdata/datck word count 
> reserved for future use 
Smodule stack starts here. 



******* ********** 



************************ 



r ********** 
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IP 000^4" 

000300* 
000304* 
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11! 




000366* 
000372* 

111: 

000420' 

000424* 
000424* 
000430* 

000432* 
000432* 
"0O440* 
00446* 



016767 

SH?S? 

012767 
012767 

mm 

123727 

\m 

105700 
0$1403 
6301 



mn 

177777 
177774 

000041 

mm 



.M 

mm 



104415 



oooooo- 

mm 




M 

2044 



013767 000040 001764 
004767 000630 



005767 001750 
001512 



000124* 
001752 



1$: 



3$: 



mm 



MOV 

MOV 

MOV 

CLRB 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

Jig 

CMPB 

BNF 

MQVB 

MOV 

TSTB 

BEG 

ASL 

DECB 

BR 

MOV 
JSR 



TST 
BEQ 



FLAG 



DLTCNT 
DVID1, DVICE 
DVICE/ORIVE 
BLKX 
DRYVE 



DVID1 
DVICE, 



11 



74 £ DRVSFT 
■41, #12 







»# 40, DRYVE 
PC, DROP 



DVICE 
FINI 



GETPA$, BEGIN, RBUFVA 
MOV RRUF5Z, WCNT2 

NEG WCNT2 



JSR 

NEG 
MOV 
JSR 



PC,BLOCK 



JSR 

TST 

BEQ 

BITB 

BNE 

BIC 

BIS 

CLP 

CLPP 

PTCB 

JSP 

BR 

BP 



Z,WCNT1 
WCNT1 m 

BLK1,R0 
PC,CONVRT 

PC,DRVADR 
DVICE 

TRY1 
TRY3 
#3/ FLAG 
P5, READY 

GO 



;256 WORDS TO MEM PER ITERATION 
H024 WORDS FROM MEM PER ITERATION 

>3 INTERRUPTS PER ITERATION 



ALSO SAVE IT IN DRIVE 
INITIALIZE BLOCK CO r "" 

yttE 



unIer 



? CLEAR FLAGS 
?CLEAR DATE LATE ERROR COUNTER 
) GET DRIVE INDICATOR 

9 " " ~ "' ~~" 
} 

; 
? 
? 

lit RS IS LOAD MEDIUM THEN 

j""H?Ti!£!i8 ,l UffI D nH 

WHILE R0>0 DO 



INITIALIZE DEVICE CO 

INITIALIZE THE SHIFTED ORIVE ., 

?6f?flZ?zF« S i«si D ?88 S Kg DRIVES 



BEG IBr 



OAD-DRIVE SELECTED THEN 



_..IFT DRIVE MASK 
? DOWNCOUNT RO 

} END 

S MOVE LOAD-DRIVE NUMBER TO DRYVE 

% DROP LOAD-DRIVE 

} END 
;END 

; DROP THE MODULE ? 
I YES 

JGET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 

2» l TRfi > M"CS»L!HiT 

} GET NEXT BLOCK NUMBER 

} GET THE 2-S COMPLEMENT 

. - — 



5 LOAD BLOCK 
> GENERATE DI 



FOR CONVRT 
K ADR. FROM BLOCK # 



GET A DRIVE ADDRESS 
ANY DRIVES LEFT ? 
NO, GO DROP THE MODULE 
■ DRIVES DONE ? 

GO GET ANOTHER BLOCK 

ZERO RETRY COUNTERS 



NO, G 



li E £§Nf ROLLER 



P FLAGS 
READY 



NO/ GO DROP THE MODULE 
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XRFAG0.P11 



SYSTEM EXER 
12-OCT-7" 



JJfjj!} MODULE 
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mm- ami 

000576* 132767 
000604* 001407 

mm: mm 

000622* 000713 

timr- mm 

000632' 004567 
0QO636* 000435 
000640* 104412 

000646' 000650' 



000250 

000020 003033 



000000* 000126* 



GOA; 

gob: 



JSR 
BR 

BITB 
BEQ 
BICB 
MOV 
BR 
JSR 



R5,VRITE 

RETRY! 
#BIT4,FLAG 

GOA 

*BIT4,FL*G 

#-l,BLKl 

STRT 

R5.WRITCK 
IE TRY2 



RET 

JSR R5,PEAD 

BP RETPY3 
CDATA$,BEGIN,RBT?FPA 
.+2 



WRITE SOME DATA 
IF ERRORS, TRY IT AGAIN 
DID THE DISK OVERFLOW ? 



NO, 

YES, . .... 

RESET THE BLOCK NUMBER 
START OVER AT BEGINING OF DISK 
WRITE-CHECK THE DATA 
IF ERRORS* TRY AGAIN 
READ THE DATA WRITTEN 
IF ERRORS, TRY AGAIN 
REQUEST FDR MONITOR TO CHECK DATA 
IF ERROR, CONTINUE 



RFAG DEC /til SYSTEM EXERCISER MODULE 
XRF AGO . Pi 1 12-QCT-7B 12:07 



MACYll 30A(1052) 12-OCT-78 16:59 PIGE 10 



000650- 

000650- 104413 

000654- 000^13 

000656* 
000656- 



104410 000000- 



FINIS 
} 



ENDITS/ REG IN 

BR NEXT 

ENDS/BEGIN 



; SIGNAL END OF ITERATION. 
MONITOR SHALL TEST END OF PASS 
jCONTINUE 



? DROP THE MODULE 



000662- 1 

000666" I 

000674- 

000676- ■ 
000704- 



013 35 
104403 
000424 



lUlol 002744 
000000- 003572- 



TRY1 
#3/fR¥l 



INCB 
CMPP 

BNE GO 
MS GN$/ BEGIN, EXCED1 

BR NEXT! 



; COUNT THE RETRYS 

? LIMIT EXCEEDED ? 
? NO- GO TRY IT AGAIN 

JASCII MESSAGE CALL WITH COMMON HEADER 
; GO ON TO NEXT DRIVE 



m mm- 

328 000720- 

fa WW 



ma mm 002721 

ISiHl 



000000- 003600- 



TPY2 „ 

,TRY2 



INCP 

CMPP #3,i 
BNE GOA 
MSGN$,BEGIN,EXCED2 

BR NEXT A 



; COUNT RETRYS 

; LIMIT EXCEEDED ? 
? NO, TRY AGAIN 

;ASCII MESSAGE CALL WITH COMMON HEADER 
| GO ON TO NEXT DRIVE 



mm- 

000744- 
00*746' 
000754' 



104403 
000400 



mil 



RETRY3: INCP 



000000- 003606- 



TPY3 

BNE lofi TRV3 
MSGN$/BEGIN,EXCED3 
BR NFXTA 



; COUNT RETRYS 

J LIMIT EXCEEDED ? 

; NO. GO TRY AGAIN 

>ASCII MESSAGE CALL WITH COMMON HEADER 
; GO OU TO NEXT DRIVE 



000766- 
000774- 

mm- 

ooioio- 

881811' 

001020' 



mm 

132767 
001.007 

000167 

m™ 

88... 

012767 



ocoooi 

000001 
io3SS 2 



000234 
OCOOOI 



001026- 1044P5 CO C000' 



001034- 
001042- 



10 4403 

000755 



177032 
002643 



177060 
000000 



000000- 003614- 



BIT 

BNE 
BITP 
BNE 
JMP 

BIT 
BNE 
BR 
JSP 
MOV 



|§IT0,FLAG 
NEXT 

|PIT1/SR1 



PC/ DROP 
#1,ERRT¥P 

HRDERS* BEGIN, NULL 
• 

MSGNS/BEGIN/DRP JASCII 
BP IS 



; IS HARD DROP OPTION CHOSEN 

; NO, CHECK THE OTHER OPTION 

; HARD ERROR DROP SET ? 

? YES, GO DROP THE DRIVE 

? GO ON TO NEXT DRIVE 

} IS SOFT DROP OPTION CHOSEN 

; YES, GO DROP THE DRIVE 

; NO, GO ON TO NEXT DRIVE 

} DROP OFFENDING DRIVE 



2TOO MANY RETRIES 

MESSAGE CALL WITH COMMON HEADER 
? GO ON TO NEXT DRIVE 
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IIBI 



001044' 
001052- 

8818 JS" 

001074- 

mur- 
ium' 

001126" 

Of 

01 
01 
0-' 

0' 



- 012 

- "16' 
' 016 



001172 

mm 

001214 
001222- 

«0123C- 

001234- 



001234- ^00004 



012767 
016777 

mm 

000436 

mm 

000421 
r)\ 

016767 
000404 
012777 
000205 

777 
.777 
. .€777 

05 6767 
016777 

10 4400 



w urn 



242- 
246- 



mm 
mm 



000103 
001340 

mm 
mm 

\mi 

176752 
000400 



001234- 
001152 

mm- 



000000 - 

000372 



001316 
002346 

mm 

mm 
mm 



WRITE: 



RF11 DISK DRIVERS 



76610 

"It 

46 

002174 



mm 

001146 



CLEARS 
GO GO: 



001242- 



MOV 
MOV 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

BP 



MOV 

MOV 
MOV 
BIS 
MOV 

EXITS, 



IS: 



#103/FUNC 
WCNTl/SPFWC 

WPUFPS/gRFMA 

WBUFEA/XMEM 

GOGO 

#107, FUNC 

WCNTl/SRFWC 

WPUFPA/gRFMA 

felBUFEA/XMEM 
GOGO 

«105,FUNC 

WCNT2,gRFWC 

RBUFPA/9RFMA 

RBUFEA/XMEM 

GOGO 

«BIT8/?RFCS 

R5 

#NTPUPT/flVECTOR 
DSK1/ (8RFDA 
DSK2/URFAE 

XMEM/FUNC 
FUNC/8RFCS 
BEGIN 



LOAD WRITE FUNCTION 
LOAD WORD COUNT 

tSJn exteI8eS D mem8Iy bits 

CONTINUE 

LOAD WRTTE-CHECK FUNCTION 
LOAD WORD COUNT 

1:858 BKIfiiy D lllE88T bits 

CONTINUE 

LOAD READ FUNCTION 

LOAD WORDCOUNT 

LOAD BUFFER ADDRESS 

LOAD EXTENDED MEMORY BITS 

CONTINUE 

ISSUE A CONTROL RESET 

RETURN 



? SET INTERUPT ENTRY POINTER 
e LOAD THE DISK ADDRESS 
; LOAD DRIVE AND DISK ADDRESS 
; LOAD EXTENDED MEMORY BITS 
; EXECUTE THE FUNCTION 

/EXIT TO MONITOR* MODULE WAIT FOR IlfERRUPY. 



PIPQ$/PEGIN/1S 



QUEUE UP TO CONTINUE AT 1$ AND RTI 



JSR 
RTS 
TST 
RTS 



R5 /ERRORS 
R5 



; GO CHECK FOR ERRORS 

} ERRORS DETECTED/ RETURN 

; NO ERRORS/ SKIP RETRY 

; RETURN OK 




001300' 

"01306- 



1X118 



104420 

003630' 



mm 



000000- 002404- 



DROP: 

15: 

2Ss 



001310- 00 0207 



MOV 

MOV 
BEG 
ASL 
DEC 
BNE 
BIC 



RYvl/R 



1/DVICE 
******************** 



/ urn 



INITIALIZE DROP PICKER 
GET THE DRIVE NUMBER 
IF DRIVE GO DROP IT 
NO, AIM AT THE NEXT DRIVE 
IS THIS THE ONE ? 
NO, LOOK AGAIN 
DROP THE DRIVE 



OTOAS/BEGIN/DRYVE/ ADRl 



PTS PC 



2FP T DRYVJ TO ASCII 
TORE AT ADRl 



AND 



*************************************************** 
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465 



001566 

,74 



INC 
CMP 
PPL 
CLR 
MOV 
RTS 



002075 

002063 3S: 
45: 
5$: 

C00020 002043 6$: 



INC 

ADD 

BICB 

CMP 

BEQ 

ASR 

BCC 

RTS 

BISB 

MOV 

MOV 

MOV 

RTS 



MOV 

MOV 

CLR 

BICB 

MOV 

SUB 

CMP 

BGT 

BISR 

SUB 

CMP 

BLT 

TST 

BLE 

ADD 

DEC 

BGT 

TST 

BPL 

BIC 

BITB 

BEQ 

BR 

BITB 
BNE 
CMP 
BLT 

m 

BISB 
RTS 



BLK1 

|256./BLK1 



#2' 

k 



— Kl 

BLKl,BLK2 

PC 



. STEP TO NEXT BLOCK 
; BLOCK LIMTT REACHED 
" "~ CON" " 



ru ( CONTINUE 
J YES* RESET BLOCK t 



} NO, 

" YES, KC.OC.T BLUtR 

. READ WHERE WRITE 

} RETURN 



DRYVE 

#RIT2,DRVSFT 

DRIVE 

DRVAOR 

PC 

#BIT3,FLAG 

DVICE, DRIVE 

PC 



COUNT A DRIVE 

DRIVE # LINED UP WITH RFDA 

YES, GO FLAG END OF DRIVES 
"0, IS NEXT DRIVE CHOSEN ? 

n TRY ANOTHER DRIVE 



} NO, GO TRY 

} YES, RETURN 

; SET END OF DRIVES FLAG 

/ RESET DRIVE COUNTER 

; RESET SHIFTED DRIVE f 

; RESTORE CHOSEN DRIVES 

; RETURN 



Kl,R0. ; SAV-E THE CURRENT BLOCK NUMBER 

56., Rl ; LOAD MAX. NUMBER OF BLOCKS 

? ZERO REG. 2 
I TO, FLAG /CLEAR 32K INDICATOR 

UFSZ,R3 ;GET THE TRANSFER SIZE 

,R1 J GET t OF BLOCKS LEFT ON DISK 

2.,R1 ;MORE THAN 32K LEFT? 

;NO, CONTINUE 
I TO, FLAG JYES, SET THE INDICATOR 

2.,R1 ; SUBTRACT 32K WORTH OF BLOCKS 
2.,RI ;WA§ THERE MORE THAN 64K LEFT? 

JYES MUST BE AN ERROR 
/ANY BLOCKS LEFT ON DISK? 
/NO , RETURN, OK 

J GET TOTAL # OF WORDS LEFT 
;ALL BLOCKS ADDED IN? 
/NO, KEEP ADDING 
/REQUEST LARGER THAN 32K? 
/NO GO CHECK THAT CONDITION 
;yes, GET RID OF 32K 

/more than 32k left? 
jno, return ok 
/yes go compare 
/more than 32k? 

/yes, plenty of room left, error 
/enough room for the transfer? 
j no return ok 
;must be a real error 
3 ; return indicating the error 

pit4,flag /set overflow flag 
5 /return ok 



1024., R2 



RIT15,R3 
BIT0,FLAG 



BIT0,FLAG 



R2,R3 
(§5) + 
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468 
469 

\\l 

473 
474 

P 

478 
481 



mm in? \m\ 

~" " 176266 

001576 176250 
001570 176244 



001612 

mat 
nm 

001636 



000207 



001560 

004000 001550 
177552 

hlllU 001526 




ERSUB2: MOV 
MOV 
MOV 
MOV 
TST 
TST 

ERSUBl: MOV 

MOV 
RTS 

} 



IS! 

2$: 
3$: 



6$: 



5$: 
? 



-<R2),A8AS 
R2 f WASADR 

RFCS,CSRA 
»RFCS,ACSR 

PC 



; ^BaD ADDReII OF DATA WRITTEN 

; LOAD THE DATA 

5 LOAD ADDRESS OF DATA READ 

; RESET REG. 1 

; RESET REG. 2 

} LOAD ADR. OF CURRENT CSR 

; LOAD CONTENTS OF CURRENT CSR 

; RETURN 



TST 
BPL 

III 

JSR 
BR 
JSR 
BIT 
BNE 
BR 
JSR 
TST 
RTS 
CLR 
• **** 

\m\ 

JSR 
SB 



BIT 

Hi 

BIT 
BNE 
MSGNS 
MOV 
***** 

km 

BISB 
RTS 



|RFCS 

||lTU,<aRFCS 

rI,poom 

?? £ ERSUB1 
|PIT14,«RFCS 

R5, CLEAR 
(P5V 

eErtyp 

*************** 

R5, CLEAR 
||lT0,FLAG 

#BIT7,»RFAE 

D?TCNT 
#BIT2,SR1 

, BEGl N, DLTERR 
§2,ERRTYP 

*************** 

§**£*£ *****§**** 

|BIT1,FLAG 



t*» 



ANY ERRORS ? 
NO, RETURN 
N 9 N r5XISTENT DISK? 

no continue 

yes* make sure enough room for transfer 
overflow* dont report as error 
load error information 
hard error ? 
yes, go report 
must be soft error 
go clear out any errors 
skip retry 

uSInoSn SSror 

****** ********************************* 

****************************************** 

; GO CLEAR OUT ERRORS 
; SET HARD ERROR DROP FLAG 
? RETURN 

JDATA REQUEST LATE? 

| INCREMENT ERROR COUNTER 
JTYPE OUT ERROR? 
J NO 

JASCII MESSAGE CALL WITH COMMON HEADER 
3DATA LATE 

***************************************** 

* *£**************************** ************ 
; SET SOFT ERROR DROP FLAG 
; RETURN, ERRORS 
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mm- mm 

002034' 005720 

«; mn 

002060* 010067 
252964' 005720 
002066' 010067 

mm- mm 

002100' 016700 

mm- mm 

002114' 000207 



mm 

001372 

001366 

001362 

001356 

001352 

001346 

001342 
175704 



MOV 
MOV 
TST 
MOV 
TST 
MOV 

SB? 

TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
MOV 
MOV 
MOVB 



ADDP,P0 

R0,RFCS 

rLrfhc 

(R0) + 
Rjj,RFMA 

Slg^FDA 

SOfae 
(R0)+ 

R0,RFDB 

(ROH 

ROgRFMR 

SOfds 
vector, ro 



GET DEVICE ADDRESS 
GENERATE CONTROLLER REGS, 



ISs 



5 GET THE VECTOR ADDRESS 
\ III MIW?T JMT " C * SE 

} RETURN 




116' 005067 000252 
22' 005067 000250 
.26' 006200 
.30' 103003 
.32' 012767 

r!!i " ""' 

150' 003375 

.my- mm 

mnr-miti 000002 000212 

002166' 103002 
002170' 005267 00020 
002174' 050067 00017 
002200' 000207 



2£2 



convrt: 


CLR 




CLR 




ASR 




BCC 




MOV 




MOV 




ASL 




DEC 




BGT 




ASL 




BCC 




MOV 


3$: 


ASL 




BCC 




INC 


4$: 


BIS 




RTS 







DSK1 
DSK2 
RO 
1$ 

#1024., DSK1 

If" 

2$ 

!? 

|BIT1,DSK2 
4$ 

DSK2 

R0,DSK1 

PC 



RESET DISK ADDRESSES 

DIVIDE BLOCK « BY 2 TO GET TRACK # 

1ST TIME ON THIS TRACK ? 

2ND TIME, STEP TO NEXT 1024 WORDS 

SHIFT 9 PLACES TO THE LEFT 

TO LINE UP TRACK ADDRESS 

DONE ? 

NO, KEEP SHIFTING 



J YES, GET MOST SIGNIFICANT BIT FOR RFAE 

; BIT SET ? 

; YES, SET IT FOR RFAE 

} GET NEXT SIGNIFICANT BIT FOR RFAE 

? BIT SET ? 

; YES, SET IT FOR RFAE 

; GET LEAST SI - ~ ~ 

| RETURN 



SIG. BITS OF TRACK ADR 
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mm- inm 
mm- Mil 





077777 001212 
PC1210 



002256" 005067 000116 
002262' 005725 
002264' 000205 



00 4567 176670 
004567 177704 



177034 
000010 



ready: 
1$: 



000003 175636 
104405 000000' 003424' 



001323 

mm 

OoBoi 6 175540 
10 4405 000000' 000000 

jjof^ * 00030 " ^03614' 
00207 



? 

REZET: 

1$: 



2S: 
7 



MOV 
TSTB 



#77777, CLK 

fiRFCS 




} SET THE TIMER 
; CONTROLLER READY 



READY 



>THEN CO! 
J WAIT 



ONTINUE AT NEXT INSTRUCTION* 

SOME MORE ? 



JS8£8S«5SSI8*M8« 

CLR 
TST 
RTS 



DVICE 
(P5) + 

R5 



****************** 

; SET TO DROP THE MODULE 
} SKIP INSTRUCTION FOLLOWING CALL 
; RETURN 



JSR 
JSR 
PR 
RTS 



R5, CLEAR 
R5, READY 



EXECUTE CONTROLLER RESET 
IS CONTROLLER READY ? 



JSR 

BITB 

BNE 

MOV 

BIT 

BEG 

JSR 

MOV 

• *** 



PC,DRVADR 
pIT3,FLAG 

2$ 

DRVSFT,!3RFAE 
|PITll,tiRFCS 

PC, DROP 



GET A DRIVE ADDRESS 
ALL DRIVES DONE ? 
YES, RETURN 

NO, LOAD DJSK ADDRESS REG. 

yes^conIinue 

NO, DROP THE DRIVE 

• ******** * ****** ********!*** * ** If 11****1 ][I£f 

HRDERS, BEGIN, NULL ;NON EXISTENT DEVICE 

• *************************************************************** 

MJGNS,BEjIJN,DRP 
RTS PC 



********************* 



} ASCII MESSAGE. gj^| WJT^gOMMJJJLHEADER 



„ MAKE 
; RETURN 



4 

/ 
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DLTCNT : 
FUNC: 
XMEM : 
DSKt: 



Sii 40 



mm 05 <w 

042522 051124 



054105 

mm 
mm 

040505 
052101 
052521 
M0514 



05111 
0425C3 

843833 

mm 



000104 
020101 
051505 
042524 



DVICE: 

DRTVE : 

DRYVE: 

DRVSFT: 

BLK1 : 

BLK2: 

T8UF : 

WCNT1: 

WCNT2: 

bufin: 

clk: 

table: 

RFCS: 

rfwc: 

RFWA: 
PFDA: 

rfae: 
rfdb: 
rfmr: 
rfds: 



MES3: 
M5S4: 
MES5: 

MSS6: 
MES7: 



MES8: 

MES9: 



3514' 
.3473' 
177777 
003523' 
003473' 



. ASCIZ 
. ASCIZ 
.ASCIZ 

•ASCIZ 
. ASCIZ 



. ASCIZ 
. ASCIZ 



.EVEN 

MFS6 

MES5 

177777 

MFS7 

MES5 



DRIVE ' 
DROPPED!' 
RETRY EXCEEDED!' 

WRITE' 

WPITF-CHECK' 



' READ' 
DATA REQUEST LATE*' 
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003644' 





1 77777 


EXCED3: 


MES8 




l5??77 


DRP: 


MES3 




NUMB 




l5??77 


DLTERP : 


MES9 
177777 


ADR1 : 


. BLKB 


NfTMR : 


.BYTE 


FLAG: 


:IKf 




• EVEN 


TRYl: 


.BYTE 


TRY2: 


• BYTE 


TRY* : 


. BYTE 




• EVEN 




• END 
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205# 



209# 




IIgIn 



mm 

002000 




mW 

' ~012R 
.0X3R 
X04421 
002422R 
104412 

mm 
nm 

OOQIJJR 

104404 

P02366R 

mm 

001254R 
""3614R 

Mm 

002404R 
400" 
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302 307 312 321 

III U1 ill w 



488 

493 
455 

m 

293 



506 
377 

273 

w 

574 



627# 
302 



496 

576* 



5«7* 
477* 



509 
424 

295 



296* 
575 



503 
6288 



ENDIT$= 




430 
465 



433* 
600 

594 

432* 

410 

isi: 

277 



597 
422* 

mt 

406* 



Sii* 

562* 
433 



617f 
582* 



xrpagS 



eIsibI 
kk 



001640R 
0Q01C6R 
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i 

492 



11 



ICOUHT 

inn.. 
ml 

MAP22$ 



mm 



234f 

if 

337 
||4# 

w 

300 # 

366 

234f 



jiff 
ill 

111 

6491 

fill 

ml 



336 

m 

353 



271 
236* 



66- 

tu 

673 

m* 



macy 

CROS 



666# 

516* 
367* 



11 30A<1052> 12-OC 
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595 
372* 

m 

376 
501 



678* 



380# 
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601* 



295* 



465* 



614* 



If 



0$0§04R 

Iff 



am 

005726 
P22626 



2761 

IK. 

670 

H! 

234» 

5821 

234# 
234S 
234# 



309 

ill* 

676# 
410 



346 
338 

603 

Hi. 



us m m 



m 



m m m m m m 
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SBQ 0920 



PRTY1 = 

Fffil : 

PRTY4 = 
PRTY5 = 
PRTY6 = 
PRTY7 = 

P*SH s 
PUSH - 
PUSH2 = 

mm 

RBUFSZ 
RBUFVA 

READ 



374 
590 



530* 597* 
477 478 
633fl 



634* 
486 



630* 



3426R 
1434R 



374* 
373* 



526* 
524* 



632# 
631# 



SR2 
SR3 
SR4 



mm 



m 

234# 

280 
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R 

642R 
"OR 

i0l36R 
>0134R 

mm 

002416R 

mtm 

000114R 
0G1076R 

mm 




mi™ 



44R 
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537 



370 

369 



363 

373 



375* 
675# 



368 
626* 



625# 



000000 
003644 



s generated: 
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